home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs47.d81 / bobjogs.vid (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  7KB  |  44 lines
  1. 1 POKE53280,0:POKE53281,0:PRINT"[147]"TAB(14)"[150]A LATE JOG[157][157][157][157][157][157][157]BY H."
  2. 2 FORA=0TO2000:NEXT:POKE53265,PEEK(53265)AND239:PRINT"[147]":POKE53272,24
  3. 3 SYS6656:V=53248:S=2040:POKES+4,56:POKES+5,57
  4. 4 FORA=4TO7:POKEV+39+A,1:NEXT:K=V+8:L=V+9:M=V+10
  5. 5 N=V+11:O=V+12:P=V+13:Q=V+14:R=V+15:POKEV+23,240:POKEV+29,240:POKEV+16,0
  6. 6 POKEK,0:POKEL,59:POKEM,0:POKEN,101:POKEO,0
  7. 7 POKE53265,PEEK(53265)OR16:POKEP,143:POKEQ,0:POKER,185:FORA=0TO5000:NEXT:F=0
  8. 8 POKEV+21,240:GOSUB41:FORA=1TO8:GOSUB37:GOSUB23:GOSUB43:GOSUB19:GOSUB43
  9. 9 GOSUB39:GOSUB38:GOSUB23:GOSUB43
  10. 10 IFA=8THENGOSUB21:GOTO13
  11. 11 IFA=4THENGOSUB42:FORJ=0TO750:NEXT
  12. 12 GOSUB41:GOSUB19
  13. 13 GOSUB43:GOSUB40:NEXTA:GOSUB42
  14. 14 FORA=0TO1:GOSUB37:GOSUB23:GOSUB43:GOSUB19:GOSUB43:GOSUB38
  15. 15 GOSUB39:GOSUB23:GOSUB43:IFA=1THEN17
  16. 16 GOSUB19:GOSUB43:GOSUB40:NEXTA:GOSUB37
  17. 17 POKEK,PEEK(K)-32:POKEM,PEEK(M)-32:POKEO,PEEK(O)-32
  18. 18 POKEQ,PEEK(Q)-32:GOTO25
  19. 19 POKEL,59:POKEK,PEEK(K)+8:POKEN,101:POKEM,PEEK(M)+8
  20. 20 POKEP,143:POKEO,PEEK(O)+8:POKER,185:POKEQ,PEEK(Q)+8:RETURN
  21. 21 POKEL,59:POKEV+16,16:POKEK,0:POKEN,101:POKEV+16,48:POKEM,0
  22. 22 POKEP,143:POKEV+16,112:POKEO,0:POKER,185:POKEV+16,240:POKEQ,0:RETURN
  23. 23 POKEL,63:POKEK,PEEK(K)+8:POKEN,105:POKEM,PEEK(M)+8
  24. 24 POKEP,147:POKEO,PEEK(O)+8:POKER,189:POKEQ,PEEK(Q)+8:RETURN
  25. 25 FORA=0TO100:NEXT:FORA=0TO2:POKEL,PEEK(L)+12:POKEN,PEEK(N)+12
  26. 26 POKEM,PEEK(M)-2:POKEP,PEEK(P)+11
  27. 27 NEXT:GOSUB40:FORA=0TO2
  28. 28 POKEL,PEEK(L)+12:POKEM,PEEK(M)-3:POKEN,PEEK(N)+12:NEXT:GOSUB37
  29. 29 POKEL,PEEK(L)+12
  30. 30 FORA=0TO1000:NEXT:GOSUB42:FORA=0TO250:NEXT:POKEL,PEEK(L)+3
  31. 31 FORA=0TO1500:NEXT
  32. 32 FORA=0TO20:GOSUB38:GOSUB35:GOSUB37:GOSUB35:NEXT:POKEV+21,0
  33. 33 FORA=0TO3000:NEXT
  34. 34 POKE53272,21:POKE648,4:PRINT"[147][154]":END
  35. 35 POKEK,PEEK(K)+2:POKEM,PEEK(M)+2
  36. 36 POKEO,PEEK(O)+2:POKEQ,PEEK(Q)+2:RETURN
  37. 37 POKES+6,62:POKES+7,63:RETURN
  38. 38 POKES+6,59:POKES+7,60:RETURN
  39. 39 POKES+5,61:RETURN
  40. 40 POKES+5,57:RETURN
  41. 41 POKES+4,58:RETURN
  42. 42 POKES+4,56:RETURN
  43. 43 FORJ=0TO70:NEXT:RETURN
  44.